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How to Load 

These programs require 32K RAM memory, an ATARI 810 Disk 
Drive, and the ATARI BASIC Language Cartridge. First, 
Insert the ATARI BASIC Language Cartridge in the (Left 
Cartridge) slot of your computer. To load and run the disk, 
turn on your disk drive. When the busy light goes off, 
insert the disk. Power up your computer and turn on your 
video screen. When the MENU appears, select the utility you 
want. Later, after you are familiar with the Utilities, take 
the ones you need and copy them to your own disks. 


MENU 


HOW TO USE MENU: 

The MENU program was designed to provide a screen 
display of disk files and run BASIC programs. MENU will 
work with either ATARI DOS 1 or DOS 2.OS and RUN BASIC 
programs that are In SAVED or tokenized format. 

MENU will automatically LOAD and RUN when your Tricky 
Tutorial diskette has been used to "BOOT UP" your ATARI 
computer. Any time you want to have MENU run first on your 
disks, just use the COPY function from the DOS menu to put 
Menu and AUTORUN.SYS from this disk onto yours. 


Booting up means that when a disk has MENU on It, and an 
AUTORUN.SYS that calls Menu, Menu Is run by just turning on 
your ATARI 810 disk drive (and other peripheral equipment. 
If any: printer, interface, TV, etc). Insert the diskette 
into Drive #1 and shut the door. Make sure your ATARI BASIC 
cartridge is Installed, then just turn on the computer. 
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ATARI 1 s DOS 2.OS will load It's File Management 
Software, then look for an AUTORUN.SYS fI le. Since your 
diskette does contain an AUTORUN.SYS file, DOS will LOAD and 
execute the instructions in this short program. This 
particular AUTORUN.SYS tells the computer to say "HELLO", 
then RUN a program called INTRO. INTRO displays our cover 
message and runs the MENU program. A sequence of programs 
that RUN other programs Is cal led CHAINING. More on that 
Iater . 

MENU begins by reading what Is called the Disk 
Directory File. This file contains a list of every file on 
a diskette. As MENU reads this Information, It will count 
the number of files read, and display the current count on 
the screen. Once all files have been read, the screen will 
also display the number of FREE or available sectors left on 
the disk. 

At this point there will be a brief delay as MENU does 
some internal calculating. Once this step has been 
completed. The authors name will be replaced by the words, 
"PRESS START". When the START key is pressed, the screen 
will appear as follows: 



Note that the words, "PRESS START" and "RUN BASIC 
PROGRAM" are in WHITE. Throughout this program, the 
currently selected option will always appear in WHITE. This 
wi I I Indicate what the computer will do if you PRESS START. 

The OPTION and SELECT keys are Interchangab I e . They 
are used to SELECT the OPTION you desire. Press one of 
these keys now then release It. Note that there were two 
sounds. One was heard as you pressed the key and the other 
as you released it. The program acted upon your request as 
you released the key. Note that the words, "RUN BASIC 
PROGRAM" are no longer white but "DISPLAY DIRECTORY" has 
changed to white. Now press OPTION or SELECT again. Once 
you released that key, the screen returned to it’s original 
colors. 
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Now that you understand what Menu is, let’s see how easy 
it makes choosing programs on your disks. Press SELECT (or 
OPTION) so that DISPLAY DIRECTORY is white, then press the 
START key. 

You have told MENU to display all files on the 
diskette. The screen Is set up to display 9 files. If more 
than 9 files are on the disk, they will be displayed, up to 
9 at a time, each time you PRESS START. Once all files have 
been displayed, you will be returned to your original two 
choices. Again, RUN BASIC PROGRAM will appear In white. 

PRESS START and a new screen wi I I appear. Note that 
there are now options numbered 1 thru 9. Only numbers 4 
thru 9 are BASIC programs. Number 1 Is CONTINUE. This 
would be selected to do just that, continue. In other 
words, you would be saying, ’’I don’t want to return to BASIC 
(#2), or call DOS (#3), or run any of the programs numbered 
4 thru 9. 

If you just wanted to use BASIC for working on a 
program, you would select number 2. If you wanted to use 
DOS, you would select number 3. If you wanted to RUN one of 
the programs numbered 4 thru 9, you would select It’s 
number . 

You may select a number by pressing the OPTION or 
SELECT key until the desired option appears In white. Note 
that here, you do not have to release the button for the 
option to change. Try it. Just hold down the OPTION key. 
One by one, each option will turn white. When you’re done 
fooling around, leave the screen so that CONTINUE Is white. 
Now press the START key. 


If there are additional programs to display, a new 
batch of options will appear. In each case, the first three 
will remain the same, and up to 6 new options (BASIC 
programs) will appear. When the last program has been 
displayed, and the CONTINUE option is selected, MENU will 
redisplay the first 6 BASIC programs. 

I said there were two methods of selection. The other 
is pressing the number key of the desired option. There Is 
no need to press RETURN or START when a number key is used. 
As soon as a valid key Is pressed, MENU will respond 
accord Ing I y . 
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Remember that when you displayed the DISK DIRECTORY, 
you saw files such as DUP.SYS and AUTORUN.SYS? But when you 
used the RUN BASIC PROGRAM option, these files were not 
displayed. That Is because this MENU program assumes that 
If a filename has any extentlon, (such as .SYS), It Is not a 
BASIC program. Conversely, when no extentlon Is found, MENU 
assumes the file to be a BASIC program In SAVEd format. 

You may use MENU on all your standard ATARI diskettes 
for convenient directory displays and BASIC program 
selection. You will just have to remember to use filename 
extentlons In all NONBASIC program names. You will also 
find that If you use an extentlon, that filename will NOT 
appear In your BASIC program selection, even though It might 
be a BASIC program. In other words, DO NOT use extentlons 
such as .BAS to Indicate a BASIC program. We will discuss 
standards for filenames and extensions a bit later on. 











F0RMAT1 - A Disk Formating Aid 


HOW TO USE FORMAT1: 

Why have a BASIC program to format disks when DOS does 
the same th!ng?Well, a Professor’s life is very busy with 
all these TRICKY TUTORIALS to write. When I get a chance to 
nap, I DO IT! 



So anyway, while I was laying around, er, I mean 
working, one day, I realized that when DOS Is used to format 
diskettes, the user must type 6 keys before the formatting 
begins. With F0RMAT1, all you have to do is insert the disk 
and press the START button. 

BIG DEAL! To format one disk, using F0RMAT1 saves 5 
keystrokes. If you just bought a box of 10, you save 50 
keystrokes. If you format disks in even larger quantities, 
and have two drives, you could remove the PRESS START 
prompt, make minor modifications to allow you to flip floppy 
between the two drives, with no keys to press at all! 
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DISKLIST 


HOW TO USE DISKLIST 

The DISKLIST program reads the disk directory fI le from 
any ATARI diskette and generates a disk jacket label on any 
compatable 40 or 80 column printer. This label will contain 
a heading, the names of each file on the diskette, and the 
number of free blocks or sectors. 

You may use plain white paper, then cut out the listing 
and attach it to the protective outer jacket using rubber 
cement or scotch tape. This will help you to identify your 
diskettes at a glance. It is recommended that these labels 
be used only for diskettes which are' nearly full. Naturally, 
if the contents of your diskette changes, the label would 
have to be reprinted. 

When you RUN this program, you will be prompted to 
insert the appropriate diskette, then enter the drive number 
you are using. 

You may enter a heading for your label. You may enter up 
to 40 characters of descriptive Information, or just press 
RETURN to bypass this option. 

Once this has been done, the program wi I I read your 
diskette and print your label. You will then have the option 
to return to the MENU program by pressing the OPTION button, 
or rerunning DISKLIST by pressing the START button. 

Here f s a example of output from DISKLIST: 


TRICKY TUTORIAL #7 BY JERRY WHITE 
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HOW IT WAS WRITTEN: 


The program itself is short and stright forward. It 
simply opens the disk directory to read all files using wild 
cards. For example, if you specified disk drive number 2, 
the directory file would be opened as follows: 

OPEN #1 , 6,0 , D 2 : * . * " 

The data between quotes is stored in the string F$. As 
each record is read, it is checked to see if it's length is 
less than 5, or if positions 5 thru 8 contain the letters, 
"FREE". If the diskette is in DOS 2 format, the last record 
will contain the word "FREE". If the diskette is in DOS 1 
format, the last record will contain only the number of free 
sectors. The length of that number will be less than 5, and 
DISKLIST will know we have reached the end of the directory 
file. 

I0CB (Input Output Control Block) #2 is used for your 
printer. Directory data is read into the string A$, and 
printed using a ? or PRINT #2 command. 

The resulting printed material will usually fit quite 
nicely on the disk jacket unless you have a large number of 
files on your diskette. 
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AUTOBOOT 


HOW TO CREATE AN AUTORUN.SYS FILE 


When an ATARI computer Is turned on, the Operating 
System (O.S.) performs many Initialization tasks. One of 
these tasks Is to find out If a disk drive Is available. If 
so. It looks for Instructions by reading the first sector on 
whatever diskette It finds on drive one. 

Using your Tutorial diskette as an example, the first 3 
sectors (boot sectors) are read. Then the file called 
DOS.SYS Is read and the O.S. sets up ATARMs F.M.S. or File 
Management System. Once this has been done, DOS looks to 
see If a file named. AUTORUN.SYS Is on the diskette. If 
not, control of the computer Is turned over to a cartridge. 
In this case, ATARI BASIC. 




VERSION 


UPDATED 3/25/82 by Jerru White 


BOOT INTERFACE (Y or NJ?N 

?RUN ,, D : MENU" 

OPENING Di -.AUTORUN . SYS 
CREATING Dl:AUTORUN.SYS 
CLOSING Dl:AUTORUN.SYS 


READY 


If the diskette contains an AUTORUN.SYS file, the system 
will execute the Instructions It receives as a result .of 
reading this file (these Instructions may be as simple as 
RUN"D:MYPROG" , or more detailed If you need). Assembler 
Instructions may be executed Immediately as each Instruction 
is read. BASIC Instructions will be executed after the 
entire AUTORUN.SYS f I le has been read. See your DOS 2 
Manual or De Re ATARI If you desire further technical 
In formatlon. 
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The AUTORUN.SYS file Is a handy little tool which may be 
used to automatically perform user specified instructions 
such as RUN a program. The AUTORUN. SYS fl le on this 
EDUCATIONAL SOFTWARE diskette tells your computer to set the 
foreground color so that It equals the background color 
Immediately. Why? This was done to prevent the READY 
prompt from appearing In the upper right corner of the 
screen. Why? It Is my humble opinion that the READY prompt 
should tell the user that the system Is READY to use. In 
this case. It would not be true. 

On this disk, the AUTORUN instruction is RUN"D: INTRO”. 
Our obedient computer will look for and hopefully find a 
program named INTRO, then LOAD and RUN It. The INTRO 
program simply displays Introductory information, tells you 
that the MENU program Is being LOADed, and RUNs It for us. 
This could be descrlbd as CHAINING programs. DOS calls 
AUTORUN.SYS, AUTORUN.SYS calls INTRO, and INTRO calls MENU. 
For your programs, you may want to create an AUTORUN.SYS on 
disks holding your favorite games or business programs. 
AUTORUN.SYS will automatically run them. What to do If you 
have several games on a dlsk?--use MENU and AUTORUN.SYS. 

The AUTOBOOT program may be used to create your own 
AUTORUN.SYS file on any DOS version 2 diskette. DO NOT RUN 
AUTOBOOT until you have made a backup copy of your 
EDUCATIONAL SOFTWARE diskette. The AUTORUN.SYS file on this 
disk Is locked to prevent accidentally writing over It. 


As an example of using the AUTOBOOT program, let us 
assume you have decided to use my handy little MENU program 
and would like to have MENU RUN automatically, bypassing the 
INTRO program. O.K. You would begin by using DOS to FORMAT 
a blank diskette. Once formatted, use DOS option H to write 
DOS files. Be sure to use DOS 2.OS. When In doubt, simply 
BOOT or reboot your computer using our diskette (which has 
DOS 2.OS on It), then load DOS from the MENU program, (see 
MENU Instructions). Now use DOS option 0 to DUPLICATE the 
MENU program. 


If all went well, you should now have three files on the 
new diskette. Check this by using DOS option A to display 
the Disk Directory. Type a capital A, then press RETURN 
twice. The first time you press RETURN is to enter the A 
option. The second time Is to bypass all options of the 
Disk Directory feature. This tells DOS to simply display 
all files found In the Disk Directory file onto the screen. 
There should be three; DOS.SYS, DUP.SYS, and MENU. The 
number to the right of the filenames are the number of disk 
sectors occupied by that file. The last line tells you the 
number of FREE or unused sectors. 
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Now to create our AUTORUN.SYS f I le. Before we can RUN 
the AUTOBOOT program, we must exit from DOS. To do this, 
type B and press RETURN. Since the BASIC Cartridge Is In 
place, you will now see the familiar READY prompt. Put your 
TRICKY TUTORIAL diskette back Into drive one, type 
RUN"D:AUT0B00T”, and press RETURN. 


Before you go any further, remove the TUTORIAL diskette 
and Insert the one on which we will write our new 
AUTORUN.SYS file. The first prompt will ask you If you wish 
to BOOT INTERFACE (Y or N). If you will be needing the 
serial ports of ATARI’S 850 Interface Module, respond Y. If 
you don’t need them, or if you don’t have one, respond N. 
There Is no need to press RETURN. 


At this point we can enter whatever BASIC commands we 
want to have executed by AUTORUN.SYS. You can only type In 
one line of BASIC commands, so use colons and keep the total 
length to 3 lines on the screen (133 characters, as In your 
BASIC Manual, see last page). The AUTOBOOT program will 
automatically generate code to set the background and 
foreground colors equal (eliminating the READY prompt). By 
the way, the prompt will be on the screen, you just won’t 
see It. I mention this to point out that If you were going 
to use a PRINT command, you will want the text to show up on 
the screen. For this reason you should begin your AUTORUN 
Instructions with a GRAPHICS command to set the colors back 
to normal. To keep this example simple, just type 
RUN”D:MENU" and press RETURN. 


As the AUTOBOOT program RUNs, It will tel I you what It 
Is doing. It will OPEN, WRITE, then CLOSE a file named 
AUTORUN.SYS. Upon completion, AUTOBOOT will simply END. 
All you need to do to see your AUTORUN.SYS file do It’s 
thing Is shut off the computer, then turn it back on again. 
The computer will do the BASIC statement you gave It. 

Some people say that frequently turning electronic 
devices off and on Is not good to do, since It wears out 
components. To avoid this and still test your AUTORUN.SYS 
file, just type POKE 580,1 and press RETURN, then press 
SYSTEM RESET. This will cause a cold start, similar to 
turning off and then on again. 

You may enter a series of unnumbered BASIC commands Into 
the AUTOBOOT program. They must be separated by a colon and 
not exceed three lines on the screen. You might wish to 
display a message, reset margins, or simply create a disk 
that will automatically call DOS. 
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If no BASIC Cartridge is found, DOS will load and 
display it f s own MENU of options, Ignoring the AUTORUN.SYS 
file. To automatically use DOS options with the BASIC 
Cartridge Installed, use AUTOBOOT and simply enter the 
command DOS. 

The AUTOBOOT program provides a method of automating 
tasks that might otherwise have to be done manually. Isn’t 
automation wonderful? 


INSPECT 


HOW TO USE INSPECT 

RUN the INSPECT program. The options display identifies 
the program by It’s full name, ’’DISK INSPECTOR", and 
provides four options. When entering an option number, there 
Is no need to press the RETURN key. 
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1 - EXAMINE DIRECTORY 


Let’s begin by typing the number 1 to examine the 
directory file of this diskette. The screen should now 
display: 


s 

FN 

FILE EXT 

S SEC 

NSEC 

L 

0 

DOS SYS 

4 

39 

L 

1 

DUP SYS 

43 

42 

L 

2 

AUTORUN SYS 

85 

2 

L 

3 

MENU 

87 

43 

L 

4 

F 1 LES 

1 30 

39 

L 

5 

1 NTRO 

1 69 

5 

L 

6 

FORMAT1 

174 

1 4 

L 

7 

AUTOBOOT 

1 88 

21 

L 

8 

1 NSPECT 

209 

42 

L 

9 

D1SKL1 ST 

251 

20 

L 

1 0 

RPMTEST 

271 

1 4 


The first column provides the Status of each fl le. In 
this case, each file shows the status L. The L Indicates 
that the file Is locked. If the file were unlocked and 
available, the status would be blank. If a file was 
Deleted, the status would be Indicated as the letter D. 

The second column shows the File Number. The first file 
number is zero. The maximum number of f i les that may be 
stored on a given diskette is 64. If the directory were 
completely full, the last file number would be 63. 

Following the file number Is the filename and extent i on 
If any. Note that the ". ,f between filename and extentlon is 
NOT dispIayed . 

Finally we have two columns of decimal numbers. The 
first Is 11 SSEC" (the starting sector) and the second is 
"NSEC" (number of sectors). Note that our first file, 
DOS.SYS, begins at sector 4 and occupies 39 sectors. The 
first 3 sectors on the disk are reserved as BOOT sectors. 

At the bottom of the screen is the message, "PRESS ANY 
KEY FOR OPTIONS". Do this and you will return to our 
original four options. 
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2 - EXAMINE SECTOR 


This time type the number 2 to EXAMINE SECTOR. The 
program will then ask us to "TYPE SECTOR NUMBER RETURN?". 
Let’s examine the first sector of the AUTORUN.SYS file. 
Type the number 85 then press RETURN. The program will then 
ask us to TYPE 1 FOR CHARACTER OR 2 FOR HEXDUMP. Type the 
number 2 (NO DEPOSIT, NO RETURN). 

Each sector consists of 128 bytes. Note that the first 
two bytes of the AUTORUN.SYS file are FF (decimal 25 5 ). 
This Indicates that the file Is In machine language or what 
Is also known as Object Code. Once again, press any key, to 
return to our options display. 

Now let’s examine sector 87 which Is the beginning of 
our MENU program. Note that the first 3 bytes are 00. 
This Indicates a BASIC program In SAVEd format. 

Return to the options display and have another look at 
sector 87, but this time specify 1 for character format. 
Note that the first three bytes are hearts. The heart 
character Is ATASCII character 0. 


3 - EXAMINE FILE 

Get back to the options display and type the number 3 to 
examine a file. The program will then ask us to ENTER 
FILENAME? Type MENU then RETURN. Once again we see the 
beginning of the MENU program but In a somewhat different 
screen layout. Here we begin with byte 1 instead of 0, just 
to say that this is the first byte of the MENU program. For 
each byte, the Decimal and Hex Values are displayed along 
with the ATASCII character representation. 

At the bottom of the screen you wl I I see, 

"OPT I0N = 0PTIONS START = C0NTINUE". To continue looking into 
the MENU program, (20 bytes at a time), press the START 
button. When you are ready to return to our options 
display, press the OPTION button. 


4 - RETURN TO MENU 

The fourth and final option is used to return to our 
maIn MENU program . 


- 13 - 



RPMTEST 


If you suspect that you are experiencing problems caused 
by your 810, this little program might come In handy. It 
will allow you to check the speed of your disk drives. 


Before we go any further, l f d like to thank the author 
of this program. Bob Christiansen of Quality Software, for 
his permission to Include his program In this package. 
RPMTEST was originally published In the May 1982 Issue of 
COMPUTE! magazine. Although my version Is slightly 
different, the logic, and the machine language routine 
remain the same. We cannot reprint the COMPUTE 
documentation, nor do we wish to steal It by making minor 



RUN this program now. If your drive is running at the 
proper speed, your diskette should spin between 285 and 290 
times per minute. The absolute perfect speed Is said to be 
288. 


The question that the program asks you Is: "Which drive 
number do you want to test"? Before you answer, make sure a 
formatted diskette Is ready In the appropriate drive. Note 
that this program will test by reading sector number one of 
the diskette, 100 times. You can use any program disk 
without fear of losing data or damage to the disk. Enter the 
appropriate drive number from 1 thru 4, then press RETURN. 
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It will take about 22 seconds for the test. The speed 
will then be displayed. If the speed Is within normal 
limits, the background color of the screen will change to 
green, and a message will say, "DRIVE SPEED IS O.K.". If 
your drive speed Is too fast or too slow, a message will be 
displayed to that effect, and the background color of the 
screen will be red. 

At this point, you may test again by pressing the START 
key, or return to the MENU program by pressing the OPTION 
key. If you decide to return to the MENU program, make sure 
our tutorial program diskette Is ready In drive one before 
you press the OPTION key. 

When testing the speed of any drive. It Is Important 
that the diskette you use Is spinning freely. If you hear 
any unusual sounds, the diskette might be rubbing against 
it*s jacket, causing the RPM speed to be slow, you may want 
to test the drive speed using several different disks. 

It Is also Important to note that the speed of the 810 
has been known to be about 3 RPM faster when It Is cool, 
than after It warms up. Since most of the time the drive 
will be warm. It should be tested under those conditions. 

If after running this test a few times, you find your 
drive to be conslstantly fast or slow, the speed should be 
adjusted. You can do this yourself as described In the 
COMPUTE article, or have an authorized repair center do It 
for you. Note that If you decide to do It yourself, you 
will be voiding your warranty. The choice Is yours. I am 
not describing the details here to protect the hundreds of 
you who would do something wrong, thereby breaking their 
drives. The speed Is adjusted Inside the drive by turning a 
small wheel on a "Pot", but many drives have this pot sealed 
so that If you turn them too hard they break. My pals and I 
found this out late one night In our labratory, and It took 
days to get a replacement parti 

If you find that the speed varies by more than 2 or 3 
RPM from test to test, you have a problem that should 
deflnately be brought to the attention of an authorized 







ATARI DISKFILES TUTORIAL 


Many new computer owners are anxious to learn how to 
write useful programs for themselves. After reading the 
literature packed with the machine, the new owner Is often 
overwhelmed by the many technical aspects of using a 
computer. Since you can not learn any programming language 
overnight, a seemingly endless period of trial and error 
usually follows. A new owner Is often seen burning the 
midnight oil and arguing with a defenseless TV or monitor. 

If he or she perseveres long enough, useful programs can 
be written. The new programmer Is now ready for bigger and 
better things. 

Assuming that a disk drive Is available and our 
"hacker 1 ' has had some experience with DOS and the loading 
and saving of programs, he or she Is ready to write some 
kind of database program. Now don't be scared off by a big 
word like "DATABASE". It just means you are going to save 
some useful Information on a disk for later use. Our 
examples will be simple, but the methods will work just as 
well for more complex data. 

The data file may consist of a simple list of record 
albums for a start. When you have gained experience, you 
might want to try a Personal Finance System. If you are at 
the point In your programming career to want to keep 
records, or think you might be In the near future, read on. 

Start with something very simple. Don't try to write 
that Financial Package yet. There Is a lot to learn first 
about file structure and I/O. I/O stands for I n p ut/0utpu t . 
Input Is data being read by a program. Output Is data being 
produced by a program. A file consists of one or more 
records, and a record Is an Item’wlthln a file. Records may 
be broken down further Into fields. We will be using simple 
records containing a single 10 character field as our 
record, and create a sample 10 record datafile. 


WHAT THE HECK IS A DISK FILE? 

A FILE Is a collection of related data. Files fall Into 
two major catagorles; Program files, and Data files. 

Each major section within a file Is called a RECORD. In 
a data file, each record may be divided Into a number of 
F I ELDS. 
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For example, let’s assume you had a data f I le of names 
and telephone numbers. The name could be one field called 
NAMES, and the telephone number could be a field called 
PHONES. Using IOCB #1, these two fields could be written as 
a record as foilows: 

PRINT #1;NAMES,PHONES 

NAMES $+PH0NE$= 1 record. A file consists of one or more 
records, and a record consists of one or more fields. 


The DISKFILE tutorial program demonstrates many of the 
common functions required In a simple database type program. 
By using the program and studying the program code, you will 
learn how datafiles may be handled In ATARI BASIC. 


It Is Important to understand the terminology used here. 
CREATE means just that. In this case It means create from 
scratch. Note that the create routine actual ly begins at 
line 1 000 and that line 1010 contains an OPEN command. The 
number 8 In that command means write only. If a file Is 
opened using this variable, and a f I le with the exact same 
name Is found on your diskette, the old file will be deleted 
automat leal Iy. 


Using option two, a file Is 
on the screen. This does not I 
file. 


read from disk and 
n any way alter 


dIsp I ayed 
the disk 


Option three Is used to ADD data to an existing disk 
file only. The term APPEND Is often used In this case. In 
plain English, the term APPEND means, "add to the end of 
this file." 

Option four Is used to UPDATE the records of an existing 
file. This means you will alter, fix, or change a record. 
This procedure Is a bit more complicated than the others 
since we will not know which record the user may choose to 
update In advance. The technique used In this demo program 
Is known as Random Access Updating. An Index consisting of 
SECTOR and BYTE locations Is created and stored In an array. 
This gives us the exact spot where each record begins. 
Since we are using fixed length records of 20 characters 
each, we can read a specific record Into a string, change It 
In the string, then rewrite the string onto the disk. This 
becomes a real time saver when many records must be updated 
In a large disk file. 


- 17 - ' 



Option five is used to READ and display a specific file 
called the DIRECTORY FILE. This DOS generated file contains 
the table of contents of your diskette. This file Is also 
known as the VTOC or Volume Table Of Contents. For display 
only, this routine does the same thing as DOS option A. 


Although some error trapping has been built In, many 
possible error conditions are not corrected or fully 
explained by this program. Error trapping and human 
engineering account for a great deal of planning and program 
code. This Is not a cop out on my part. The point here is 
to provide an example of dlskflle handling. Accounting for 
all possible errors could easily double the size of the 
program, making It more difficult to understand. 


That's about It for now. I suggest you use my program 
as Is, then experiment by maklngmlnor changes and notelngthe 
results. When you 1 re ready to write your own dlskflle 
handling program, feel free to use these routines. 



Wl ?!' e !'??, res+ of +h,s Package was designed to provide 
you with utility programs and related information, the FILES 
program is not a utility. It was designed to show you how 
to manipulate data flies on disk. y 


You may 
create your 
documentatI on 
In FILES, 


database 


be interested in using this information to 
own data file handling program. The following 
will explain the various BASIC routines used 
so that you may alter and use them in 


programs . 


your own 


I wrote FILES using meaningful variable and strinq 
names. Look at program lines 100 and 110. DRIVES will hold 
the disk drive number In a format such as "DIs". FILES will 

Sr! VFF^Ft'' spec,f y such as "TEST.DAT-, and 
DRIVEFILES will hold the combination of DRIVES and FILES 
such as "D1 :TEST.DAT". * 
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For purposes of this tutorial, we will use very short 
data records containing 10 characters and use RECORDS to 
store the current record. ANSWERS will be used to store a 
response from you, the user. 

The arrays SECTOR and BYTE will be used to store the 
location of each data record on the diskette. DIRECTORYS 
will store the records we read from the disk directory file. 

We setup our menu screen display starting at line 120 
and ending at line 210. At the end of line 210, we go to a 
subroutine which starts at I ine 7000. This subroutine will 
be used whenever we need a single character response from 
the user. Before the INPUT statement, we make sure anything 
previously stored In ANSWERS Is eliminated and POKE 764,255 
to ignore any previously pressed key. In this case, we are 
waiting for the user to enter the desired option number. 

When we return at line 220, we set a trap to IIne 800 
which is an error message routine. Then we store the number 
120 In the variable LINE, and the number 6 in the variable 
HIGHNUMBER. The last thing we do In line 220 Is put the* 
numeric value of ANSWERS Into the variable NUMBER. 

If the user entered a letter Instead of a number, BASIC 
will give us an error condition because we cannot take the 
value of a letter. The trap to line 8000 will be activated 
and the error message from that I Ine wi I I be displayed on 
the screen. At line 8010, we go to the alarm and time delay 
subroutine In lines 9000 and 9010, then go back to whatever 
line number Is stored in the variable LINE. In this case 
that line number is 120. 

If the user did enter a number, line 230 checks to make 
sure the number was not less than 1 or greater than 6, and 
line 240 sends us to the line where the selected option 
routine begins. 

Let f s go through each of the six routines beginning with 
number one, which begins at line 1000. This routine creates 
a sample data file consisting of ten records. Notice that 
we reset the value of LINE to 6100. LINE will always hold 
the line number that may be used later by a GOTO LINE 
instruction. 

Next we go to the subroutine beginning at line 7100. We 
will be using this subroutine often, so study it carefully. 
This routine gets the desired drive number from the user and 
makes sure it is not less than 1 or greater than 4. Once a 
valid drive number has been entered, it creates DRIVES as we 
described earlier, and asks for a filename. This 
information Is combined and winds up in the string 
DRIVEFILES. 
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RETURNlng to line 1000, we set a trap to line 9100 In 
case something goes wrong, clear the screen, and attempt to 
OPEN the file as specified In DRIVEFILES. We probably 
didn’t have to CLOSE #1 before the OPEN, but It was done 
just In case that 10CB was left open. In any case. It never 
hurts . 

Notice the operand 8 used In the OPEN command. It Is 
most Important that you understand the function of this 
number. In this case It means we want to OPEN a file to 
WRITE only. If any other file on the diskette contains the 
same filename, ATARI’S file management system will delete 
the old file to make room for the new one. It Is therefore 
Important to remember that the operand 8 should only be used 
to create a NEW data file. 


Each of the other possibilities for this operand are 
demonstrated by this program. The number 4 is used if a 
file Is to be OPENed to read only. 9 Is used to APPEND data 
to a file. APPEND means add to the end of an existing file. 
12 Is used to READ or WRITE and Is used for updating an 
existing file. 6 Is used to OPEN the diskette’s directory 
file and read It. By studying the FILES program, you will 
learn how each of these OPEN operands are used. 


The data In our records will consist of ten characters 
that do nothing but take up space, and show you that we 
created a ten character record. The program writes ten 
sample records by using a ? (PRINT) #1 command within a 
FOR/NEXT loop. We should now have a ten record file to work 
with, (big deal). 

At the end of this routine, we GOTO 6100. This routine 
closes all lOCBs, sets the print tab width to 5, and 
displays the message, "PRESS RETURN FOR OPTIONS". This was 
done to give the user time to read what was displayed on the 
screen before returning to our main options screen. 


There Is very little difference between the routine we 
just used (lines 1000-1100) and the routine beginning at 
line 2000. Option 2 allows us to read a file like the one 
we just created. The difference Is In the OPEN variable 
being 4 Instead of 8, (read Instead of write), and the lack 
of the FOR/NEXT loop. Since we do not know In advance how 
many records to read, we just set a trap. When we get an 
end of file error from BASIC, we know we read the whole 
file. 


The routine beginning at line 3000 is somewhat more 
complex. Here we will add to our data file. We ° PEN us '"9 
the #9 to APPEND, get record data from the keyboard, add 
blanks if necessary to insure a record length of 
provide an option for the user to add as many 
desired. 


and 
records as 
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Option #4 is by far the most complex. This routine 
begins at line 4000 . Here we OPEN using the #12 to 
READ/WRITE, and update or change records In an existing data 
file. First, we have to know the exact location of each 
record on the diskette. We do this by reading the f i le and 
storing the sector and byte location of each record In the 
approprI ate I y named arrays. The NOTE command In line 4030 
stores our current position on the disk. We add 1 to our 
record counter, then store our position in our arrays. Then 
we input a record and display all available Information on 
the screen. Once we've read the entire file and we know 
where each record can be found, we can change any number of 
records without rereading the file again and again. 

To update a record, we just ask the user for the record 
number to be updated, and POINT to this record as 
demonstrated in line 4300. The only restriction is that we 
maintain our fixed record length of 10 positions per record. 
When we PRINT our updated record on the disk, we will simply 
be writing the new record where the old one used to be. 
This process is called random access updating. 

In your own programs, you can change the record length 
to as much as 256 positions, and just modify this 
demonstation program to store whatever information you 
desire. If you can stay within 80 characters per record, 
and you'd like a collection of programs written specifically 
to provide various types of data storage and retrieval 
functions along with sorting and printing capability, look 
Into S WIFTWARE *s (Swifty Software's) FILEIT 2 package. It 
can be used to print lists of most anything, address labels, 
and financial reports. I wrote it with the home user and 
small businessman in mind. 

We still have one more option to describe In addition to 
#6 which Is used to automatical ly return us to the MENU 
program. Option 5 reads the disk directory file, and 
displays it on the screen. This tells us the names of each 
program and data file on a given diskette along with the 
number of sectors it occupies, and the number off FREE or 
unused sectors we have left. 

This routine, which begins at line 5000, Is very simple. 
The key Is in the OPEN command. The D:*.* specifies disk 
drive 1, all files. It could also be D1:*.*, but drive one 
is always assumed if the drive number Is not specified. 
Those asterisks are called wild cards. *.* means all 
I etter/number combinations before and after the period or 
filename.extent I on divider. The following are a few 
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possibilities that could be used to replace the #.*, and 
what they would specify. See your DOS 2 reference manual 
for further information. 

*. = A I I filenames with no extentions. 

*.SYS = AI I filenames with the extention .SYS. 

M*. = A I I filenames that begin with M and have no 

extent ions. 

M*.* = AI I filenames that begin with the letter M. 

The DISKLIST and MENU programs read this same file to 
provide their disk jacket label printing and automatic 
program loading features. 

Hopefully, the FILES program listing, this 
documentation, and the pages that describe how to use this 
program, combine to provide you with everything you will 
ever need to know about the handling of data files. As with 
any form of programming, a little effort and trial and error 
on your part will be required to put this Information Into 
practical use. 



This concludes our tutorial on disk files. We hope you 
find the utility programs to be useful, and learned 
something about using your disk drive along the way. If you 
have any comments about this package, feel free to contact 
the author at the address listed below. 

Jerry White 
18 Hickory Lane 
Levlttown, N.Y. 11756 
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PROGRAM LISTINGS 


MENU 


TOO OEM 1151 =030 (c) 198 2 by Jenny Nhite [4/4/82J 

HO GOTO S20 

120 FOR ME = Q1 TO LEM(BS) : IF B$(HE,ME)=" ■■ THEN JW$(ME,ME)=" 
":GOTO 140 

130 JW=OSCCBS(ME,ME3)+128:JW$(ME,ME)-CHH$(JH) 

140 NEHT ME3RETURN 

ISO P O K E 16,64 : POKE 53774,112 : POKE 2 JL O , A 4 : P O K E 708,31:P0KE 7 

09,172:POKE 711,90:P0KE 712,144 I RETURN 

160 TRAP 170 : INPUT **OI„ P$:IF P$(5,08) <>"FREE" THEN 260 
±70 POSITION 02,06:? W(16 ; " TOTAL FILES — "* : POSITION Q2,«8:? ttO 

6:P$(01,04);"FREE SECTORS":? tt06;L$;IF BP>Q6 THEN DBP=06:TBP 
-BP 

JLOO IF BP <—0 6 THEN t> B P = B P : T B P = B P 

i9G bpd$~“" CH rmrani ju nbasic dos ■■ s j-■ "1+riT rrfTr rrRrT ^<h 

":SEL=01:PN=Q3:GOSUB 120 

200 POSITION 06,01:2 tt06;"M E HI U":POSITION 07,07:? tt06j" 

210 POKE 540,60:POKE 0279,03 
220 IF PEEK(0279)—06 THEN RETURN 

2 30 IF PEEK (5403 >25 THEN POSITION 0 4,0 2:2 #*(* 6 ; “ , r•T»X^3BS■SL3E33D , * : 

GOTO 220 

240 POSITION 04,02:2 »06;" ":IF PEEK(540)=Q3 THEN 

2 10 

250 GOTO 220 

26 0 R = R + 01 : P O SITION 15,06: 2 **« 6 ; R : H> '£> C R*1 7“16, 7)--P$:IF P$ ( 

11,11)=" "• THEM BP = BP + B1 : B$ (BP*08"7 , BP*08) =P$ (07,10) 

220 GOTO 160 


260 

KEV = PEEK (7 

641 : 

POKE 264,255: T EMP = LSEL : LSEL=SEL :KEYSEL = «1 

IF K 

EY=31 THEN 

SEL 

=Q1:GOTO 650 

230 

IF K E V = 3 O 

THEN 

SEL = Q2 

: GO TO 660 

300 

IF KEY=26 

THEN 

SEL=07 

: G OT O 6 2 0 

3.1 O 

IF KEY=24 

THEM 

SEL = «4 

:GOTO 360 

32 0 

IF KEY=29 

T H E N 

SEL = S : 

GOTO 360 

3 3 O 

IF KEY---27 

T HEN 

S E L = 0 6 

:GOTO 360 

340 

I IF KEY=51 

THEN 

SEL=7: 

GOTO 380 

350 

IF KE V =5 3 

THEN 

S E L = O 6 

: G O T O 3 8 0 

36 0 

IF KEY=48 

THEN 

SEL = 9 : 

GOTO 380 

320 

L 5EL = TEMP : 

GOTO 

530 


360 

TRAP 40000 

: KEY 

SE L = 01 : 

FP=PN-BBP:CP=SEL-07+FP:GOTO 250 


3 30 GRAPHICS 17:GOSUB JLSO:2 110 6 3 ? *#06 J"" SELECT OPTION"": 2 11 

0 6:** "RETURN 

4 00 GRAPHICS JL8: GOSUB 15O:OP = 10Oi? **0 6 J L$ : GOSUB 41B:GOTO 4 40 

410 POSITION 04,02:2 **06 ? "' * "sPOSITION 5,04:2 **Q 6 

5 ""Cira^lSMEarTIJSS"" : ? **06 ; L$ : POSITION 03,10:2 »Q6;L$ 

420 POSITION 02 ,7 : 2 **06 ; “ 'I * : POSITION 02,9:2 

4 3 0 POSITION 02,7:2 *#06 : ■ ■ !»*r " '■ 8 POSITION 02,3:2 

4 40 BUT = PEEK (0279) 3 IF BUT = 5 OR BUT = H7 THEN GOSUB 1050: GOTO 5 

oo 

4 5 0 IF BUT = 06 1 H E N GOSUB 020 : GOTO 420 

460 GOTO 440 

420 BIUT = PEEK(fl27 9) : IF B U 1 = 06 1 H1EN 42 0 

460 GOSUB 020:IF 0P=100 THEN GOSUB 390:GOTO 520 

430 GOTO 650 

500 IF OP = 10O THEN OP = 20O:GOSUB 43 O 3 G O T O 440 

510 OP — JL0O : GOSUB 4 2 O : GO T O 4 4 O 

5 2 0 IF IB P =«3 THEN 114 0 

5 3 0 IF B P > O 6 THEN i£>BP — 06: TBP = BP 

540 IF BP < = 06 THEN U>BP = BP : TBP = BP 

550 SC=INT(BP/06)+«1:SEL=«1:PH=03 

56 O S -PEEK (560) +PEEK (561) *256 + 04 : SM-PEEK IS) +PEEK (S+OD*256 : J 



W=U5RtADR(MC$3,SM+60,360) 

570 FOR DI5=Q1 TO Q7:PO5ITI0N 04,DI5*Q2+Q2:? ";BP 

I>$ (DI5«Q8-7 r DIS*083 : NEKT DI5 : POSITION 04,04:? »06; ,, ffl" 

5 0 0 FOR DIS = Q4 TO OBP + Q7 : PH — PN + Q1 : POSITION 04 , l>I S»Ci2 + 02 ! ? »0 

6JDIS}"= ";B$(PN«Q8-7,PN*08):NEKT DI5 

590 BUT = PEEK(027S) : IF BUT = Q6 THEN G05UB 020 : GOTO 740 
OOO IF PEEK(764)<>255 THEM 200 
E> ± O IF BUT = Q7 OR B LI T = 5 THEN 630 
B20 KEYSEL=Q3:GOTO 590 

6 3 0 LSEL = SEL S SEL = SEL + Q1 : IF 5EL = »BP + Q4 THEN S EL = Cl JL 

Ct 4 0 IF SEL>07 THEN 710 

6 5 0 IF 5EL-Q1 THEM POSITION Q 4 , Q 4 : ? W06;**piEa iC I 'sPOSITI 

ON 04,06:? ttQ6;"2= BASIC"iPOSITION 04,00:? WO 6;'"3 = DOS" 

660 IF SEL=Q2 THEN POSITION 04,04:? ttQ6;"l= CONTINUE":POSITI 

ON 0 4,06:? WO 6 ; * HiHuB' * : POSITION 04,00:? WO 6 ; ■ • 3 = [>OS" 

670 IF SEL = Q7 THEN POSITION 04,04:? WO 6 ; * * X - CONTINUE 1 " : POSITI 

ON 04,06:? U06;"2= BASIC" : POSITION 04,08:? W0 6 ; '"SsiSg \7XmM" 

660 IF KEY5EL THEN 800 

690 IF SEL = Oi THEN FP = PN — DBP : LP = L.SEL — 07 + FP : CP = SEL — 0 7 + FP : GOTO 

72 0 

70 0 GOSLIB 10 8 0 : GOTO 590 

7IO FP = PN-DBP 5 LP = LSEL-Q7 + FP:CP = SEL-Q7 + FP : IF 5EL = Q4 T HEN POSI 

TION 0 4.08:? WO6 ,, 3= DOS" ! ISEL =52 + 128 : GOTO 730 

720 POSITION 04.L5EL*02+Q2:? «06;LSEL;"= ":B$fLP*08-7,LP*OB) 

:ISEL=LSEL+49+128:IF SEL=Qi THEN GOSUB 1080:GOTO 590 

730 POSITION 04,SEL.*Q2 + Q2:? tt06 ; CHR$ (ISEL) j "EH" S JW$ (CPWQ8-7 , 

CP*0 83 : G O S LI B IO80:GOTO 5 9 0 

7-40 BUT = PEEK(027S3 :IF B U T = O 6 THEN 7* 40 

750 IF SEL <04 THEN GOSUB 020: GOTO 8OG 

76 0 DOIT$ = "Dl. ; " : TRAP ±16 0 : DOIT$ (LEN (DOIT$3 +013 CC P*Q 8 — 7 , CP 

«0 85 : GRAPHICS 18 : GOSIIB 15 0 

770 POSITION 06,07:? WO 6 ; " IS* ■ : F O R LD = 01 TO LEN (DOIT$3 Si 

F r DOIT$(LD,LD3=" * * THEN POP iGOTO 790 
780 NEKT L D 

790 HK = 10 — INI (LD/Q23 : POSITION X H , 5 : ? WO 6 : DOITS : R LI N DOITS 
O O IF SEE = 02 THEN END 

BIO IF S E L = O 7 THEN DOS 

8 2 0 TBP = TBP — 0 6 : IF TBP< = 03 THEN GOTO 520 

8 3 O IF T Et P > = O 6 THEN DBP = O6:G0T0 560 

840 DBP-TBP:GOTO 560 

850 TRAP 940:GOSUB ±±3O:PR=R:SP=03:SC=O3 
86 O IF P R = O 3 THEN 940 

870 5C = SC + Q1 :IF S C < JL O THEN PR = PR~01 : SPsfP + 01 : ? 110 6:? «06 ; I)$ ( 

SP*17-16,5P*173:GOTO 860 
f l: 8 O IF SC = Q3 AND P R = Q 3 THEN 9 4 O 

8 9 0 p osI rio n o4,22:? wo6 ; ■ •EnHE&mEMWttWi '■ 

900 IF PEEK (02793 <>06 THEN 900 

9 J O GOSUB 020 

920 IF PE E K C O 2 7 9 5 =Q6 fHEM 92 O 

93 O G O S LI Et 020 :SC = Q.l! GOSUB .1138 : GOTO 8 6 0 

94 0 POSITION 0 4,22:? WO 6 ; ' • IVI: VI * ■ 

950 IF PEEK CO2795 <5 06 T HEN 950 

960 GOSUB O 2 O : G O T O ±030 

970 READ 01,02,03,04,06,07.08.020,0279 
980 DATA 1,2,0,4,6,3,8,1110,53279 

9 9 O D I M D £ C ± 0 8 8 5 ,PS( 2 O 5 , O P $ C 2 O 5 ,L$(205 ,BPD$(245 , .»MS C 5 1 2 5 ,B$f 

512) ,doit$(ii3 , mc$U2) :ls = '*-• 

i0oo mc s--hh:ii h rra h rm hhcmth fir vin**jo -sgraphi 

CS 18 : GOSLIB ±50: CLOSE WO ± : OPEN WO 1,06.03," B :*.«":? WO 6 ; L 5 
±O±0 POSITION 06,01:? W06 ; "M E N ll":POSITION 07,07:? 

mmjxmmzi S>“4Ni _ bI a ‘ : ? WO 6 ; l_ $ : P O K E 580,03: POKE- 65,01 

1 0 2 0 IP O S I T X O N O 2,06:? UQ6j"RE ft DING FILE" ; SGOSU B ± 6 O : G O S LI B O 2 
O 

1030 IF PEEK 102793 =06 THEN ±030 
±040 GOSLIB 020 : GOTO 400 
1050 G O S IJ B 0 2 O 

±0 6 0 BUT-PEEK (02795 : IF BUT-5 OR LSI IT = 07 THEN ±060 

1070 R ETURM 

1080 POKE 540,20 

±0 90 S = PEEK(5403 : IF S<>03 THEN SOUND 03.SEL— Oi . 02 . S/02 : GOTO 
I. 0 9 0 




J-iGO SOUND Q3.03.Q3,Q3:RET1I0N 

I. HO SOUND Q3 , 102,12,03 : SOUND Qi , 51,12,08 : POKE 0279,03 : SOUND 
0 2; , 03,02 . OS : SOUND 07 , Ql , 02,08 : POKE 0279,03 

J. . 120 FOR S = Q3 TO 07:50LIND S , 03,03,03 : NEKT S : RET URN 

i±so graphics i7:gosub ±so:? «o&:? «Q6;» ^ 

0-03:RETURN 

± ±. -tO GRAPHICS 0 3:? :? " THIS PROGRAM REOLIIRES THAT BASIC":? 

:? " PROGRAMS HOOF NO FILE EXTENT IONS. 

±±5 0 ? : ? "■ NO BASIC PROGRAMS MERE FOUND ON":? :? " THIS D 

ISKETTE."!? :END 

±±SG GRAPHICS ±8:GOSUB ±50:? ttOB:? BOB:? BOB;" I WAS UNAB 

l - E ■ B : ? BOB : ? «C16; " TO LOAD " : ? BOB:? «Q6 ?" "; DOITS 

±±70 FOR JW-±00 TO 755 : SOUND 03, JW, lO , 08 : SOUND 0±, JW-Q2, ±0, Q 
& : N E K T - J W: SOUND 03,03,03,03 : SOUND 0±, 03,03,03 : TRAP 40000:GDT 

o -too 


FORMAT ± 


O REM (c) ±982 BY JERRY WHITE (DISK FORMATTING UTILI 

TV AND TUTORIAL) 

± REM 

± O GRAPHICS 0:SET COLOR 2,0,0:P0KE 82,2:POKE 83,39:POKE 201, ± 
OiPOKE 752,±S? 

7 0 ? ,"FORMAT DISK ON DR.±"S? :? " PRESS START WH E N R 

EADY:GOTO BO 

30 rem 
[ ira;n-JO<vi 

40 F=F+±:? CHR$(±25):? :? :? :? ."FORMATTING DISK tt" ; F 

SO T R A P Z O O : X I O 254, «± ,0,0, "Dl : "STRAP 4 O O O O : R E M m^SmKjSnWmMS3m 

IESITCOMaE^ 

5 5 POKE 66,1:? CHRS (253) : POKE 66,0: REM ITyilTTrMglT r i M i ~ 1 ~i W W^=11TMgTT«ri 

■Ka^xnnoEiixg 

60 ? , "DISK FORMATTED":? :POKE 77,0:REM I KS 

[mmssBiaiisEmsGiSM 

70 ? " PRESS START TO FORMAT ANOTHER DISK":? " PRESS OPTION 
TO END THIS PROGRAM" 

SO IF PEEK (53279) —6 THEN 40 : REM INSTANT REPLAY. 

IF PEEK (53279) =3 THEN 3 0 0:REM THAT'S ALL FOLKS. 

±oo goto so : rem iiiCHr;m«wr^r.T:i<Niir^iRH^i 

180 REM 11 n««l rl'SirSifir* 

unraaranE 

±90 rem 
i95 rem 

ciaKiaaBSQiri 

2O0 ? CHR$(253):? :? "I MAS UNABLE TO FORMAT THAT DISKETTE": 

? 

2: ± O BAD = BAD + ±:F = F-±:GOTO 7 O : R E M 

300 ? CHR$(±25):? :? F;" DISKS FORMATTED":? :? "UNABLE TO FO 

RMAT ";BAD;" DISK (S) " 

3±o rem izixw&s ; m >j*t; a:T=wn tt4:WMfrwr;} 

320 ? :? " END OF PROGRAM FORMAT!":? :? 

S ANY KEY FOR ME NU" : POKE 764,255 

330 IF PEEK(764)=255 AND PEEK (53279) —7 THEN 330 
3 40 POKE 7 64,255 : RUN "D: ME NU" 


PRES 




DISKLIST 


o rem 4 ^ 

HO GRAPHICS O : PO 
F$ti05,B$(40): B £ C 


128 
Hi 


*»s a a 


2 2 8 2 tc) 1982 By Jenny White 

KE 752,l:5ETCOLOR 2,5 , O : D I M A$ (40) , DMS (40) , 
1)=" ":B$t40)=" , ':B$(2)=B$(1) 

g'rvrjrarr : ?. 1 t i : i ,i :t. ...■» • ^ im 
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y p e 


A H e 
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en** ; : TRAP 


A 2 O 

: I 

MPU 

T l> 
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J. 8 O 

2 

" 

M444TYPE 

A HEAD 

IN 

G 

IDE 

N 

TIFI 

C A 

T I 

o 

N 


L 

IN 

E4+":INPUT 

l> W 

$ 

20 0 

F$ 

= 

"D":FS(LEN 

CF$)+1 

3 = 

ST 

R$ ( 

D 

N 3 : F 

S ( 

LE 

N 

C 

F 

$ 

3 A 

A3 =" 


0 

r 

0 

SE 

ttl 

: TR 

AP 600:OPEN 

ttl . 6 , 

o , 

F$ 















20 2 

TR 

A P A O O O : C L O 

SE «2 : 

OF* 

EN 

4*2 

.r 

CO 

0 

"P 



T 

R 

A 

P 

40000:2 " 

■5 

AAA 

A 


204 LDN=LEN(DN$):IF LDN=0 OR LDN>33 THEN 203 

20 6 TRAP 208: J W= IHT ( (40-LDM) / 2) SPRINT 442 ; B$ Cl, JW+1) J DN$ : TRAP 
4 0 0 0 0 : GOTO 2 A O 
20 3 PRINT 4*2;" ";DN$ 

PILE EKT SEC":2 


2 AO F> 

R I N T 

4*2 : 

2 

*42 

. ■■ 



F I L E 




E 

K T SEC 

142 














2 2 0 T 

R A P 

250 : 

C 

= C + 

A : S 

E 

T 

COLOR 

4 

„ 

C 

, 

8 : INPUT 

R A $ C 

5 .8 ) 

= " F r R 

E 

E" 

T H E 

M 


2 5 O 






2 3 0 2 

142 ; 

" " 

; 

AS J 

: C = 

C 

A 

A : SETC 

O 

L 

O 

R 

4 , C , 8 : 

3 < S3 O 

R A $ 

(55 ,8 

3 

= "F 

R E E 

" 


T li E N 2 

S3 

O 




2 4 O 2 

*42 : 

" 

J 

A & : 

G O '1' 

o 


22 © 






2 5 O 2 

*42 : 

2 *42 

: 

" 




";A$( 

A 


3 

3 

; " FREE 

O R I = 

a r o 

6 : P 

R 

INT 

*12 


N 

EKT I : 

C 

L 

O 

S 

E 4*2 

2 6 0 2 

" :% A 

AAA" 


SET 

J 

0 

0 

o 

R 

2,A5, 

O 


? 


" 


W * 

26 0 


2 SO 

2 : 2 " 

30 0 

IF* PEEK 

3 AO 

IF PEEK 

5 0 

O : R LI N " D 

320 

GOTO 30 

500 

2 "MAT A 

O : N 

EKT ME 

5 AO 

2 : 2 *" 

ME 

WHICH CO 

5 2 0 

2 "AAA 

5 30 

IF PEEK 

540 

G O T O 5 3 

6 O O 

TRAP 4 0 


PRESS ClIjSTWITI FOR ME NLP 
PRESS EXX-RIOi TO RERUN* 
C53279)~6 THEN RUM 
C53279) = 3 THEN 2 "IS"!? :? ,* 

: MENU** 


■Mil 


L. OADIHG ME * 


• : TRAP 


PLEA 
C O N I A I N S 
P 


40000:2 
R ME=1 TO SOOiNEX 
1000 2 

S aDEOU WHEN READ 
AO1O IF PEEK(5327 
J O 2 0 GOTO 2 02 


■=€•»IMrUMRH>T rT»a«MS4ST^mr^isI^lC^'rTr'TMlWi"‘ : FOR ME = l TO 2 0 

S E INSERT A DISKETTE INTO"!? : 2 * * DRIVE O 

THE":2 :2 " MENU PROGRAM." 

RE S3 BBClTSl WHEN READY" 

3=6 THEN I RAP 5 O O : R U N " D : ME N II " 

* * = fo 

T ME:RUN 

VO UR PRIN T E R ISN'T READY":? : 2 * * PRES 

Y . . . " 

9) 06 THEM 1010 


autoboot 


JL o O R E M 
hi te 
X IO I> IM 

JL 2 O F O R 

ISO FOR 
X 40 FOR 
160 


ftllfllfl TOC • SI (CREATES A LI T ORUW.SY5 FILE ) C C 3 X 9 6 2 Jenny W 

A $ (128) , FN$ (14 3 :FN$ = "D1 :AUTORUN . S Y S" : G O T O 2 3 0 

ME = A TO 8 8 : REAR IT:PUT *4 A , IT : NEXT ME : R E T U R N 

ME = 1 TO 20 : READ IT: PUT *LL .IT : NEXT ME: RETURN 

I = A TO 123:READ D:IF 1=64 THEN PUT ttl,LENCA$)-1:GOTO 



ISO PLIT «I,D 
160 N E K 7 I 


17 0 


FOR I=LE 

N C 

A 

$:> 

TO 

X 


S 

T 

EP 


- 

X 


put 


ttl 

, AS 

•3 

0 

S Cl , 

I 

1 

9 

:NENT I 

180 


PUT ttl,2 

55 


PU 

T «L 

, 

2 

5 

5 

: P 

LI 

T 


ttl , 2 

2 

6 


P LI T 

ttl 

, 2 : P 

U 

T 


ttl,227:PUT 

ttl 

, 

2:PUT ttl 

, O 


PU 

T ttl 

, 

6 



















X 9 O 


2 : 2 " c 

LO 

S 

IN 

G 

; 

F 

N 

S 

: C 

L_ 

O 

S 

E 

ttl 


P 

OKE 

82 , 

2 : PO 

K 

E 


83,39:2 :P 

OKE 


752, O : E N 

l> 
























2 0 0 


l>ATA 2 5 5 

, 2 

5 

5 , 

0,6, 

5 

, 

6 

, 

16 

9 

, 

X 

4 

s , X 

4 

1 


197 

, 2 , 

9 6,2 

5 

5 

, 

255,226,2, 

2 2 7 

, 

2 , O , 6 

























210 


&ATA 255 

, 2 

5 

5 , 

0,56 

, 

7 

5 

, 

56 


X 

6 

9 

, so 

, 

X 

4 

x, 0 

, 3 , 

169 , 

X 

, 

X 

41,1,3,169 

, 6 3 

, 

l4 X, 2,3, 

16 

9 

, 6 

4,14 

X 

, 

3 
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3 , 

X 

6 

9 

, 

5 , X 

4 

X 

, 

6 







220 


0ATA 3 , X 

41 

, 

5 , 

3,16 

3 


O 

p 

14 

X 


4 

, 

3,1 

4 

X 

, 

9,3 

, 14 

1 , XO 

, 

3 

, 

141,11,3,1 

69, 

X 

2,141,8, 

3 , 

3 

2 , 

89,2 

2 

S 

, 

1 

6 p 

X 

, 

3 

6 

, 16 

2 










230 


OATA XX, 

1 8 

9 

,• O 

, 5 , X 

5 

7 

, 

O 

, 3 

, 

2 

O 

2 

p 16 

, 

2 

4 

7,3 

2 , S 

9,22 

8 

# 

4 

8,6,32,6,5 

, xo 

6 

,12,0,96 

.p 2 

2 

6 p 

2,22 

7 

, 

2 

, 

O , 

5 

6 














2 4-0 


DATA 162 

, 0 

, 

16 

9,26 

, 

3 

, 

2 

OX 

, 

6 

9 

, 

24 0 


5 

, 

232 

,23 

2,23 

2 

, 

2 

08,244,232 

, 14 

2 

,105,6,1 

8 9 

, 

26 

, 3 , X 

3 

3 

, 

2 

05 

, 

X 

6 
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p x 0 

7 

, 

X 

57 , 

26 , 

3,23 

2 


X 

89 

250 


DATA 26, 

3 , 

X 

33 

p 206 

, 

X 

6 

9 

p 6 

, 

X 

5 

7 

, 26 


3 

, 

X 6 O 

, O p 

X 6 2 , 

X 

6 

, 

X 7 7,205,15 

3 , X 

O 

7,6,280, 

2 0 

2 

, 2 

OS , 2 

4 

7 

, 

X 

69 

, 

6 

7 

, 

X 4 X 

, 

X 

X 

X , 6 

, 16 

9,6, 

X 

4 

X 


2 6 O 


DATA XX 2 

p O 

.p 

16 

9 , X O 

, 

X 

4 

X 

p x 

O 

6 

, 

6 

, 96 

, 

X 

7 

2,1 

06 , 

6,48 

, 

3 

, 

185,123,6, 

20 6 

, 

106,6,16 

O p 

X 

, 9 

6,13 

S 

, 

7 

2 

, X 

7 

4 

4* 

X 

05, 

6 

, 

X 

6 5, 

205 

,157 





270 


f> 0 r 0 2 6 , 

3 , 

2 

32 

, 165 

, 

2 

O 

6 

p X 

5 

7 

, 

2 

6 , 3 

, 

X 

O 

4 , X 

70 , 

10 9, 

X 

5 

5 

,166,1,96, 

O . O 


0,O,O,O, 

O p 

O 

p O 

,0,0 

, 

O 

, 

O 

P G 

, 

7 

6 

, 

0,0 

, 

0 









2 8 0 


GRAPHICS 

O 

: 

PO 

KE 7 

X 

O 

, 

X 

4 4 

; 

P 

O 

K 

E 8 

2 

p 

X 

: PO 

KE 

83,3 

8 


P 

OKE 201 , XO 


:? :? ■* r-THul* J LH - 

2 a-© ? ,■« i>x-:i^*iiit r J.i^ :-: ? s? •• i»ra >i?k wm&x&zgaL jaja. r ii 

RTrnt:^* - 

300 ? : 2 '■ BOOT INTERFACE CY on N) ?"; : GOSUB 360 
3X0 2 :2 '* ■ : 2 : INPUT A$:POKE 752,1 


320 

2 : 

2 " OPEN 

TNG 


; FNS : CL 

OSE ttl : 

OPEN ttl, 

8 , O , F 

N$ : 2 

: 2 " CR 

e: A T I n g 

";FN$ 









3 3 O 

IF 

B00T850 

THE 

N R 

E5TORE 

200 : GOS 

UB X 3 O : R 

ESTOR 

E 2X0 

: GOSUB 

120 : 

: GOTO 350 









34 0 

RESTORE 200 

: GO 

SLIB 

130 






350 

PUT 

ttl . 255 : 

PUT 

ttl 

, 255 : PU 

T ttl , O : 

PUT ttl,6 

: L = X2 

3 + LEN 

(A$)—x: 

PUT 

ttl , 

L : PUT tt;L 

p O : 

RES 

TORE 24 

O:GOTO 

X 4 O 




36 0 

POKE 764,25 

5 








3 7 O 

IF 

PEEK(764 

3i — 2 

55 

THEN 37 

O 





3.8 0 

IF 

PEEK (764 

9 =4 

3 T 

HEN 2 ” 

Y ' • : B O O T 

850=1:PO 

KE 76 

4,255 

: RETURN 

390 

IE 

PEEK C 7 6 4 

9 — 3 

5 r 

HEN 2 ** 

N“:BOOT 

850=0:PO 

KE 76 

4,255 

: RETURN 

4 00 

2 : 

2 : 2 • ■ 



PLEASE 

TYPE Y 

OR N? u ; 

: GO TO 

360 



500 

2 " 



I WAS 

UNABLE TO O P E IN AUTORUN. SYS*': 

GOTO 900 

6 O O 

2 " 

'□4 4 


ERROR 

WHII. 

E WR I T I N G AUTOftllN.SYS" 


900 

2 : 

: 2 , 


ERROR 

NUMBER PEEK (195) : POKE 201, 

8:2 : 2 , •“PRESS 


TO 

R 

ERUH*“ : 

: 2 , *' 

■PRESS FOR DOS" ? 


9X0 

IF 

PEE 

K 

(53279)=3 

THEN RUN 


920 

IF 

PEE 

IK 

(53279)=6 

THEN CLOSE ttl:DOS 



930 GOTO 910 


I NSPECT 


100 rem (c) 19«2 Jerrv White 13 / 1 . 2/02 1 

X 1.0 GOTO 94 O 

12 O R E M 

13 0 REM «-«■ 

X 41. O R E M 

150 FOR K-A TO B:IF SEC$ (K , K) =CHR$ C155) THFN ? " “ • ; : G O T O 170 
160 ? SEC$(K,X)! 

17 0 NEXT K : R El TURN 
.1..8 0 REM 

190 rem *m* **** 

2O O RE M 





210 FOR K = A TO B : BYTE = ASC CSEC$ tK , K) J : HK = INT (BYTE/16) +1 : HEX = B 
V TE-l6WCHK-1J +1 : HEKS fl, 1) =HEKSTR$ (HK , HX) 

2 2 0 HFX$ (4,4 J = HEXSTRS (HEX . HEX) : ? HEX$ ; : NEXT X:RETIIRN 
230 REH 

250 REM 

2 0 0 POKE ?64.255:ROKE 82,2:? “ 8 6 8 8 : «"g)M( iCHW J •!.. JMHMHI.X1 JHHHHJGTX] 

2 7O P OKE 779,1 : FOR LOOP = l TO 6 : POKE 778,104+LOOP : IO = U5R tADR f 

c:co$3 :» 

2 8 0 FOR EHTRV = 1 T tK 8 : 5T A T E$ = SI:C$ C E N I R 6 - 1 5 . EH T R Y».t. & - I 4 a ; T F 

5TATE$ = , "¥¥■ , THEN 340 

290 IF STATE$(l f 1)="C" THEN 2 "D :GOTO 320 

30 0 LOCK = ASC(STATE$(l,i)) : LOCK = LOCK-INT tLOCK/64) *-6 4:IF LOCK> 
= 32 THEN 2 * * L :GOTO 320 

310 2 " "; 

3 2 0 2 B** (LOOP-1) +EMTRY ; " ► • ■ ; 5EC$ (EHTR Y*H 6-10 . ENT RY*.l 61 ? 8 8 ► 8 8 ; 

3 30 2 ASC (5EC$ (ENTR Y*1 6~12) > + 26 6+A SC (SECS CENTR Y++.L 6-11)) 

A5C (SECS (ENTRY*16-14) ) +256*ASC (SECS (ENTRY*16-) 3) 1 

340 NEXT ENTRY:NEHT LOOP:GOTO 760 

3 6 0 R E IM 

36 0 RE HI Hiprr'lrl *** 

370 REM 

360 POKE 764 P 256:GOSUB 620:POKE 82,1 

33 0 2 8 * lS j.1fl*ifctf»l;ai:imi.U: i 8 8 ; N LI M : 2 :IO = USR(AI>R(CIOS)) :IF C = 1 THEN 

POKE "7 6 6 , X 

4too 2 * ■ f r lonri^^ * w w. * ■: 7 « 

410 7 88 8 8 ; ; A = 1 : B = 32 ! IF C = 1. THEN GOSUB 150 : G O T O 430 

41 2 O G O St LI B 2 1 O 

413 0 2 : 2 S7 : 2 8 8 ; ? 88 P 

3^X001^^“ * 

44 0 7 88 88 : : A = 33 : B-64 : IF C = 1 THEN GOSUB X 5 O S G O T O 460 

450 GOSUB 210 

470 7 88 " 5 A = 65:B = 96 IF C = l. THEN GOSUB ±50: GOTO 4 30 

4160 GOSUB 2±0 

510 7 8 8 l iMIM^ 8 

5 2 0 7 8 8 88 ; : 0 = 37 : B = ±2S : IF C = ± THEN GOSLIB 150:GOTO 540 

530 GOSUB 21O 

54 O POKE 7 6 6,0:7 : GOT O 76O 

550 REM 

560 REM *-«■ l^l!T?KF:CrC3«liaWi *«*• 

570 R EM 

580 POKE 764.255:TRAP 560:7 ,8 »S 88 :7 :? 88 ENTER FILENAME"; : 

INPUT IJSE£RS : FILE$ = DRIOES : FILES (I EN (FILES) +1) =USER$ 

530 TRAP 630 : CLOSE ttl:OPEN Iti . 4 „ 0 , FILES ! COUNT = 0 : SCOLIMT = 0 : POK 
E 201 . ±0 : POKE 62.3 : POKE 63 .. 3 3 : FI AG = 1 

6 0 0 POKE 752.1 : POKE 766.0:7 8 8 6 8 8 : POKE 766,1 : 7 8 8 IWrilli^I>IVI?m »i 

r-#iTT^Tm“,r-T^ rr^HMH^nr^ 8 8 

6 1.0 GET »1. . BYTE : C 011M T = C O U N T + 1 : S C O U N T = S CO U N T + ± : I1X = I M l (BYTE/16 

1 + ± : HEX-BYTE-1 &*C (HX-.U +1 : HEKS (1 , ±1 -HEX5TRS (HX , IIK) 

620 HEXS (4.4) =HEXSTR$ (HEX , HEX) :7 88 COUNT . BYTE , HEK$ (1,1) ; HE 

K$ (4,4) ; : IF BY T E = 155 THEN B Y T E = 3 2 
630 7 88 88 : CHR$ (BY TE) 

6- 4. O X F S C O U IMI T = 20 T H E N GO S LI B .1230:5C O LI M T = O : G O T O 6 O O 
650 GOTO 6 ± O 

6 6 B R E M 

67 0 REM **** 

6 6 O REM 

& 3 O POKE 66,0:ERR0R = PEEK(L95) :IF E R R O R = ± 3 6 THEN 7 : 7 „ 8 8 E N l> O 

F FILE":? : 7 : G O 5 LI B 7 5 O : R LI N 

700 IF ERROR-: ± 7 0 THEM 7 :7 . 8 8 F X L E NOT FOUND 88 : 7 :7 SGOTO 750 

710 7 : 7 . "ERROR 88 ;ERROR: 88 AT LINE "; PEEK (166) +PEEK Cl 67) *2 5 6 

:7 :? :GOTO 750 


720 REM 




730 rem WSC- 

748 REM 

750 POSITIO M 7,23:? ' ■BEEj^3EWE1 'j:POKE 764,25 

7 €i> O XE PEEK(764)=255 THEN 760 
770 IF FLOG THEN RETURN 
7 8 0 POKE 764,755:GOTO 1040 

7 S O REM 
60 0 REM 
0X0 REM 

©20 TRAP ©20:? :? “ TYPE SECTOR NUMBER mWWITiTn" i : INPUT N LI M 

STRAP .400 0 0 

S30 NUM=INT (NUM3 :IF NLIM<1 OR N LI M> 7 2 O THEN ? :? 1 *!3IEaMiaK]HKa3na 

HMrf-T-T ■ : g o t o ©20 

€t 4 o ? : ? ■ \? : poke 764,2 

55 

850 LA5TKEY = PEEK t 7 6 4 > :IF LASTKEY = 255 I H EN ©SO 
©60 IF LA5TKEY=3i THEN C=i:GOTO ©SO 

©70 X F L. 0 S T K E V = 3 O T H E N C = 2 : G O T O ©SO 

8 8 O ? : G O TO © 4 O 

890 POKE 778,NUM-INT t N UH/256)«256 
S O O POKE 7 7 S , IN T CN U H/2563 iRETURN 
SXO REM 
S2 0 REM ** 

S 3 O REM 

94 0 DIM CIO$(5) , SEC$ C128) , STATES (2) , HEKS C5) , HEKSTR$ £16) : CIO$ 
= "h sB*"‘ 

S 5 O HEKS-" 4 *• t" : HEK5TRS = ,, Oi23456789AL : tCDEF" 

SSO DIM DRIME$ (33 ,IISER$(12) , FILES £153 : DRIUE$ = "D1 ; " 

S7© POKE 772,ADR(5EC$)-INT(ARR(SEC$3/2563*256:REM LOW BYTE 
S©0 P o K E 7 7 3 X N T (ADR (5EC$3 /2563 :REH H IG H B V T E 
SSO POKE 76S,1:REM DRIUE X 

X O O O POKE 7 7 O , © 2 : R E M RE 0 I> S E CTOR (87 = MR X T E SEC T O R 3 
X O X O REM 
X020 REM ■*■*€• 

X03O REM 

X O 4 O G R 0 P H X C S O S P O K E 7 10, X 4 4 : P O K E 281,9: P O K El 752, X : P O K E ©2,2 
: P O K E 83,3 9 : FLAG = 0 : POKE 7 6 6,0 

XOSO ? : ? , " r------ a ' “ 

.1.060 ? , " # DISK INSPECTOR | " 

X O 7 O ? „ ■« -- 1 * ’ 

xoso ? ■. ? :? , ■ *oif^rii^oiiiK.^ rj.nmrr.irrorr^^■ ■ 

XOSO ? :? , "X = EK0MXNE DIRECTORY" 

X.XO0 ? :? .,"2 = EK0MXNE SECTOR" 

1X10 ? :? ,''3= EXAMINE FILE" 

1X20 ? :? ,"4= RUN MENU" 

1X30 POKE 764,255:SEC$CX3=" " ! SEC$ (1283 = n " : SEC$ (2) =SEC$ (X) 

J.I40 L0STKEY = PEEK (7643 :IF LASTKEY = 255 T H E N X X 4 O 
X 15 0 IF L0STKEY = 3X I IIE N 2 4 0 

X16 0 X F LASTKEY = 30 THEN 360 

X X V O X F L. 0 S T K E Y = 2 6 THEN POKE 7 5 2 , O : G O T O S 6 O 

1X80 X F I.. 0 S T K E Y - 2 4 THEN POKE 2 O X , X O : G R 0 P H X C S 6: POKE 7S2 X : P O 

KE 7 6 4,256:? : ? :? "LOADING MENU": Ft I.IN " D : ME NU" 

X X S O G O T O X X 3 O 

X 2 O O R E M 

12X0 REM *** 

1220 REM 

123© POSITION 5,23:? ' * .? 

1240 IF PEEK(53279)=3 THEN RUM 

J. 2 50 IF PEEK(5327S3=6 THEN R E T URN 

X2 6 0 GO TO X 2 4 O 




SPEEDCHECK 


O REM [gSGOLOEH 4/29/82 

lOO GRAPHICS O : POKE 559, O : FOR I = 0 TO 72:READ A: POKE 1536 + 1,0 

:HEKT I:POKE 710,O:P0KE 82,l:POKE 201,10 

■ "T^ ** 1 ^^***^^ ^ * 1 - POKE 559,34:P0KE 752,0 

ISO 2 n + + + ►TEST WHICH DRIVE NUMBER"; STRAP ISO: INPUT DRIVE : T R 
A P 4 0 0 0 0 

166 DRIVE = INT (DRIVE) : IF DRIVE<1 OR DRIVE>4 THEN ? :? 1 * ENT 

E R DRIVE NU MB ER 1 „ 2 , 3, OR 4** : GOTO ISO 

ISO POKE 752,1:? : ? " TESTING IO O DISK REVOLUTIONS"!? !? 

" THIS SHOULD TAKE APPROK. 22 SECONDS"; 

2 0 0 POKE 1610, DRIVE • H = U5R (1536) :A = PEEK (1611) : B = PEEK (1612) : MI 
M=(2S6*B+A)/3600:RPM=INT(10O/MIM+O.5) 

22 0 2 :2 :2 " ► ►CaaEH"; RPM: IF RPM>284 AND RPM<291 THEN 2 :2 "► 

DRIVE SPEED IS O.K.":POKE 7IO,178:GOTO 2SO 
230 POKE 710,66:IF RPM<285 THEN 2 :2 "►DRIVE SPEED IS TOO SL 

OW":GOTO 2SO 

240 2 : 2 " ►DRIVE SPEED IS TOO FAST" 

2 50 2 : 2 "PRESS t ■ 11* iK ■ JTI FOR MENU OR igtijTrSjj TO RERUN".; 

3 O O IF PEEK (53279) =6 THEN 120 

350 IF PEEK (53279) =3 THEN POKE 82,2:2 "IS":2 , " LOADING MENU" 

: R LI N " D : ME N LI " 

400 GOTO 300 

500 REM DATA FOR MACHINE LANGUAGE ROUTINE 
1060 DATA 104,169,1,141,10,3,169,0 
1010 DAT A 141,11,3,141 r 4,3 ,.16S, 5 
1020 DATA 141,5,3,173,74,6,141,1 
J.030 DATA 3,169,82,141,2,3,169,5 
1040 DATA 141,73,6,32,83,228,206,73 
10 5 O DATA 6,208,248,169,106,141,73,6 
1060 DATA 169,0,133,19,133,20,32,83 
1070 DATA 228,206,73,6,208,248,165,20 
1O80 DATA 164,19,141,75,6,140,76,6,96 
2000 REM 

2010 REM THIS IS A MODIFIED VERSION OF THE RPMTEST PROGRAM O 

RIGINALLV PUBLISHED 

2020 REM IN THE MAY 1982 ISSUE OF COMPUTE* MAGAZINE. 

2030 REM WE WISH TO THANK BOB CHRISTIANSEN FOR HIS PERMIS510 

M TO INCLUDE THIS 

2040 REM PROGRAM AS PART OF THIS TUTORIAL/UTILITY PACKAGE. 


DI8KFILES 

0 REM FILES (c) 1301 by Jerry White 

1 REM ATARI DISKFILE TUTORIAL DEMO 

2 REM 

10© DIM DRIVES(3),FILES(12),DRIVEFILES(15),RECORDS(10),ANSWE 
RS (1) 

HO DIM SECTOR (20) , BYTE (20) , DIRECTORYS (20) : REM DIMENSION STR 
IMGS AND ARRAYS 
111 REM 

120 GRAPHICS O:POKE «2,2:POKE 03,39:REM CLEAR SCREEN AND SET 
MARGINS 

130 POKE 201,5:SETCOLOR 2,1,0:REM SET PRINT TAB WIDTH TO 5 S 
PACES AND COLOR 

140 2 :2 "TYPE OPTION NUMBER THEN PRESS RETURN" 

150 2 :? , "(1) CREATE A DISK FILE*" : REM GOTO lOOO 

160 2 !? ,»C2) READ A DISK FILE":REM GOTO 2000 

170 2 : 2 , M * <3> ADD TO A DISK FILE": REM GOTO 3000 

180 2 :2 ,"(4) UPDATE A DISK FILE":REM GOTO 4000 

130 2 :2 ,"(5) DISPLAY DISK DIRECTORY":REM GOTO 5000 

200 2 :2 ,"C6) RUN MENU":REM GOTO 3140 

210 2 :2 ,"YOUR CHOICE";:GOSUB 7000 

220 TRAP 8800 : LINE = 120 : HIGHNUMBER = 6 : NUMBER — VAL CANSWERS) 

230 IF NUMBER<1 OR NUMBER>6 THEN GOTO 3000 

240 ON N LIMBER GOTO 1000,2000,3000,4000,5000,3140 




250 REM 


1000 LIME = 6I00:GOSIJB /lOOsTRAP 910O : GRAPHICS 0;5ETCOLOR 2,-*, 
0 

1010 CL05E rax;OPEN rax,6,O,DRIUEFILES 

1020 2 :? "CREATING DRIUEFILE$ ; ? : RECORI>$ = "12345678 90" 

1030 FOR DEMO=i TO XO 
1.040 ? «X ; RECORD$ 

1.050 ? "WRITING RECORD NUhbtR ";DEMO 

.10 60 NEXT DEMO 

1070 2 :2 "10 RECORD DEMO FILE CREATED" 

1080 2 :2 "CLOSING ";DRIOEFILE$ 

X09O close rax 

1X00 GOTO (5X00 
XiiO REM 

200O LINE = 6X00:GOSUB 7X0O:TRAP 9100 : GRAPHICS OsSETCOLOR 2^, 

Or? :? 

2010 CLOSE tt2:OPEM «2 4,0, DRIO E F I L E 3? : RECK IJ M— O : LINE—6X00 

2020 INPUT ra2,RECORDS 

2 0 3 0 IRECM II M=RE CNUM + X 

204O ? "RECORD NUMBER "JRECNUM; 

2050 ? .RECORD$ 

2060 GOTO 2020 
2070 REM 

3 0 0 0 L I N E - 3 O O O : G O 5 ILI B 7X00 : TRAP 9100 : GRAPHICS O ; S E T C O L O R 2,7, 

O 

30X0 CLOSE H3:OPEN W3,9.O,DRIVEFILES 

3020 GRAPHICS 0:2 :? ,"ADD RECORD(S) ROUTINE:" 

3 0 3 0 ? ; 2 , "ENTER X O CHARACER RECORD" 

3 0 4 0 2 : 2 ."“OR JUST PRESS RETURN TO EXIT":? : G O 3 ILI B 6000 

3050 RECLEN=LEN(RECORDS):IF RECLEN=0 THEN 3200 

3060 IF RECLEN=XO THEN 309O 

3070 FOR BLAMK-RECLEM + X. TO 10 : RECORDS (LEN {RECORDS) +1J =" ":NE 

XT BLANK 

3090 PRINT ra-3 ; RECORDS 

3X00 2 :2 "PRESS START TO ENTER ANOTHER RECORD" 

31X0 2 :2 "PRESS OPTION FOR OTHER OPTIONS..."; 

3X20 IF PEEK(53279)=6 THEN 3020 

3X30 IF PEEK(53279)=3 THEN 3200 

3X40 GOTO 3120 

3200 2 :2 i? ."ADDING RECORD(S) TO DISK":CLOSE R3:GOTO 120 

3210 REM 

4000 LINE — 4X00 : GO SUB 7XOO:TRAP 9X00 : GRAPHICS Or.SETCOLOR 2,10 
, O 

4 O X O CLOSE *t4 : O PEN «4 , X 2 , O , DRIVEFILES : LINE-4100 

4 0 2 0 2 : 2 , , "CREATING IN D E X" : R E C N UM=O 

4030 MOTE »4,SECTOR,BYTE 

4040 RECNUM=RECNUM+1 

4050 SECTOR (RECMUM) =SECT OR : BYTE CRECNUM) -BYTE- 

4060 INPUT ra4 , RECORDS : 2 , "■ RECORD RECNUM, RECORDS 

4 0 7 0 2 , "SECTOR-" ; lECTOR , "BYTE = "J BYTE 

4060 2 :GOTO 4030 

4100 RECNUM-RECNUM-X 

4X10 2 :2 "PRESS START TO UPDATE A RECORD" 

4120 ? :2 "PRESS OPTION FOR OTHER OPTIONS"; 

4X30 IF PEEK{53279)=6 THEM 4200 

4X40 IF PEEK (53279) = 3 THEN CLOSE 144: GOTO 120 

4X50 GOTO 4130 

4200 GRAPHICS O:REM RANDOM ACCESS RECORD UPDATE ROUTINE 
42X0 2 :2 ."DISKFILE CONTAINS ";RECNUM;" RECORDS" 

4220 2 S2 "ENTER RECORD NUMBER TO BE UPDATED"; 

4230 TRAP 4220:INPUT UPDATE:TRAP 40000 

4240 (UPDATE — INT (UPDATE) : IF UPDATE<1 OR U P D A T E > R E C N U M THEN 42 

30 

4250 POINT ttt4,SECTOR(UPDATE),BYTE(UPDATE) 

4260 INPUT ra4,RECORDS;2 :2 RECORDS 

4270 2 :2 "ENTER NEW RECORD tt";UPDATE;SlNPUT RECORDS 

4260 RECLEN=LEN(RECORDS):IF RECLEN=10 THEM 4300 

4290 FOR BLANK = RECLEN + 1 TO lO : RECORDS (LEN (RECORDS) +1) .ME 

XT BLANK 

4300 POINT ra4 , SECTOR (UPDATE) , BYTE (UPDATE) 

43X0 PRINT 444;RECORDS:2 :2 ."RECORD HAS BEEN UPDATED" 

4320 GOTO 4X10 




4330 REM 

5000 GRAPHICS 0:P0KE 752,1 : SET COLO It 2,12, OsPOKE 201,8!? :? , 

" DISK DIRECTORY":? : TRAP 9 JL O 0 

5010 CLOSE »5 : OPEN MS, 6,0, "D REM OPEN IDISK DIREC TORY FO 

Ift ALL ENTRIES 
5020 LINE — 610 0 

5030 INPUT 115 , l> IR E C T ORYS 
5 0 4-0 ? , DIRECTORYS 

5050 GOTO 5030 
5060 REM 

6000 .. POKE 764,255:REM RECORD STRING AND LAST KEY 

PRE55ED-NIILL 

6010 INPUT RECORD$:RETURN 
6020 REM 

6100 FOR FILE=1 TO 5:CLOSE ttE1LE:NEXT FILE:REM CLOSE ALL FIL 
ES 

6110 IPOKE 201,5:? : ? , "PRESS RE 1 URN FOR OPTIONS"; 

612 0 GOSIJIB 7000 : GOTO 12 0 : REM PAUSE TO READ SCREEN THEN GO TO 

OPTIONS 
6130 REM 

7000 A N S WE R$ = ""!POKE 764,255 : INPUT A N SWE R$ : RETURN : REM I CHA 

R A C T E R INPUT 
2010 REM 

2100 GRAPHICS OiSETCOLOR 2,0,0:REM DRIVE NUMBER AND FILENAME 

INPUT ROUTINE 

2110 ? :? "TYPE DISK DRIVE NUMBER (1 — 41"; : HIGHNUMB ER = 4 : GOSUB 

2000 

2120 LIN E-2110: TRAP 6 O O O : N U MB E R-V A L CANSWE R$) :TRAP SlOO 

2130 IF NUMBER<1 OR N U MB E R > 4 THEN 6 0 00 

7140 DRIVE$ = "D" : DRIVES ILEM (DRIVES) +11 = A N S WE R S 
2150 DRIVES CLEN (DRIVES) +11 == y " : *' 

2200 2 :? "TYPE FILE NAME"; :INPUT FILESilF LEN (FILES) —O THEN 

2200 

2 210 DRIVEFILES — DRIVED 

2220 DRIVEFILES CLEN (DRIVEFILES) +11 =FILES : RETURN 
2230 REM 

8000 = ? "PLEASE TYPE A NUMEEP FROM I THRU " J HICHHUMBtK : «<cn 

ERROR ROUTINE 

6010 GOSUB 9000:GOTO LINE:REM GO BACK TO LINE NUMBER (LINE) 

SOOO ? CHR$(253)SREM RING ERROR BELL 

9010 FOR COUNT = .1 TO 30O:NEKT COUNT :RE TURN 

9020 REM 

91.00 POKE 252,0: IF PEEK (1951 =136 THEN GOTO LINE: REM ERROR WA 

S END OF FILE 

91.10 REM DISPLAY ERROR NUMBER AND LINE AT WHICH ERROR OCCURR 
ED THEN END 

9120 '? :? “* ERROR ";PEEK(195) ;" AT LINE "; PEEK (1861 +PEEK (187 

1 «-2 5 6 

9130 LIST PEEK (1861+ PEEK (167) **2 5 6 : G O 5 U B 9 000 

9 14 0 TRAP 40000 :GRAP 11 ICS OlPOKE 764,2S5:POKE 752,l:POKE 201, 

10 

9150 2 :? :? , ‘“LOADING MENU" S RUN "DlMENU" 





Don’t forget to ask for my other lessons teaching you about all 
of the great GRAPHICS and SOUND tricks that the ATARI 
computers can do-the TRICKY TUTORIALS™ for 16K: 


#1 — DISPLAY LISTS (many Graphics Modes at the same time!) 

#2— SCROLLING (move your Graphics and text around 
smoothly) 

#3— PAGE FLIPPING (a professional looking way to redraw 
many screens of text or graphics) 

#4 — BASICS OF ANIMATION (a beginner’s lesson in moving 
shapes around the screen) 

#5 — PLAYER MISSILE GRAPHICS (Learn to write a PACMAN™ 
type game of your own!) 

#6 — SOUND AND MUSIC (from single notes & chords to songs 
& special effects, I explain all) 

#7 — DISK UTILITIES (Utility programs to help you use yourdisk 
drives (32K) 

#8 & 9 Coming soon to a blackboard near you! 








HELLO STUDENTS 1 . X AM 

Professor von chip: x am bringing 

you THIS TUTORIAL To HELP MARE THAT 
0IO DISK DRIVE YOU HAVE A UTTIE FRlENDUEF 
TO USE. 1 KNOW HOW HARD IT IS To WRITE 
yoUR OWN UTILITIES FOR THE DARN 
THINS, SINCE it Took ME YEARS To 
WE THESE PROGRAMS (3zK required. 
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Here are the utilities on this disk' 


1) A MENU program +o tell you what Is on each disk, and 
allow you to run the program of your choice at the 
touch of a button. 

2) A FORMAT utility that allows you to format your 
disks with the touch of a single button (sound 
familiar? I like buttons). 

3) Would you like a listing of the contents of each 
disk? If you have a printer, or can borrow one, 
that Is exactly what you will get with DISKLIST. 

Tape the listing to each jacket cover and you are 
a I I set. 

4) With AUTOBOOT, your disks will run themselves when 
you turn on the computer. You slmplly give the 
computer a list of Instructions to follow when It 
first runs. 

5) INSPECT will make you as smart as a Professor I 
You can look at any place on your disks and see 
what Is written there. 

6) Finally I give you DISKFILE, a small tutorial on 
writing and reading Information to a disk. 

Perfect for those of you who want to really 
understand the mysteries of DISKOLOGY (one of 

my favorite subjects)! 

7) A bonusl My Robot, Prototype, has Improved a 
recent program published In COMPUTE I (of course 
I asked first). SPEEDCHECK will help you be 
sure your drive Is running at the right speed. 







